#!/usr/bin/perl 

use strict;

use DBI;
use CGI;
use TTraker;

my $dbh;
initialize_dbi();

my $form_ref = parse_input();
print_header();

my %FORM_DATA = ();
%FORM_DATA = %$form_ref; 
my $num = $FORM_DATA{'supNum'};
my $name = $FORM_DATA{'supName'};
my $job = $FORM_DATA{'supJob'};
my $loc = $FORM_DATA{'supLoc'};
my $start = $FORM_DATA{'payDate'};

# print "update_job_event_elapsed_adj_all_loc ($start);<br>";
update_job_event_elapsed_adj_all_loc ($start);

# print "update_job_headers_time_cost_all_loc  ($start);<br>";
update_job_headers_time_cost_all_loc ($start);

# print "update_daily_from_payroll_list_all_loc  ($start);<br>";
update_daily_from_payroll_list_all_loc  ($start);

adm_activity_screen_from_pm ($num, $name,$job, $loc);

db_disconnect();

